home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcsecure.zip / _SERIAL.FRM < prev    next >
Text File  |  1996-05-16  |  14KB  |  448 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSerialization 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Serialization"
  7.    ClientHeight    =   5325
  8.    ClientLeft      =   1185
  9.    ClientTop       =   1650
  10.    ClientWidth     =   7575
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   5730
  22.    KeyPreview      =   -1  'True
  23.    Left            =   1125
  24.    LinkTopic       =   "Form1"
  25.    MaxButton       =   0   'False
  26.    MDIChild        =   -1  'True
  27.    ScaleHeight     =   5325
  28.    ScaleWidth      =   7575
  29.    Top             =   1305
  30.    Width           =   7695
  31.    Begin VB.PictureBox Picture1 
  32.       Appearance      =   0  'Flat
  33.       AutoSize        =   -1  'True
  34.       BackColor       =   &H00C0C0C0&
  35.       BorderStyle     =   0  'None
  36.       BeginProperty Font 
  37.          name            =   "MS Sans Serif"
  38.          charset         =   0
  39.          weight          =   700
  40.          size            =   8.25
  41.          underline       =   0   'False
  42.          italic          =   0   'False
  43.          strikethrough   =   0   'False
  44.       EndProperty
  45.       ForeColor       =   &H80000008&
  46.       Height          =   480
  47.       Left            =   7020
  48.       Picture         =   "_SERIAL.frx":0000
  49.       ScaleHeight     =   480
  50.       ScaleWidth      =   480
  51.       TabIndex        =   16
  52.       TabStop         =   0   'False
  53.       Top             =   90
  54.       Visible         =   0   'False
  55.       Width           =   480
  56.    End
  57.    Begin VB.CommandButton Command7 
  58.       Appearance      =   0  'Flat
  59.       BackColor       =   &H80000005&
  60.       Caption         =   "&Clear info"
  61.       BeginProperty Font 
  62.          name            =   "MS Sans Serif"
  63.          charset         =   0
  64.          weight          =   400
  65.          size            =   8.25
  66.          underline       =   0   'False
  67.          italic          =   0   'False
  68.          strikethrough   =   0   'False
  69.       EndProperty
  70.       Height          =   465
  71.       Left            =   5310
  72.       TabIndex        =   15
  73.       Top             =   4590
  74.       Width           =   1995
  75.    End
  76.    Begin VB.CommandButton Command6 
  77.       Appearance      =   0  'Flat
  78.       BackColor       =   &H80000005&
  79.       Caption         =   "&Set default"
  80.       BeginProperty Font 
  81.          name            =   "MS Sans Serif"
  82.          charset         =   0
  83.          weight          =   400
  84.          size            =   8.25
  85.          underline       =   0   'False
  86.          italic          =   0   'False
  87.          strikethrough   =   0   'False
  88.       EndProperty
  89.       Height          =   465
  90.       Left            =   5310
  91.       TabIndex        =   14
  92.       Top             =   3870
  93.       Width           =   1995
  94.    End
  95.    Begin VB.CommandButton Command5 
  96.       Appearance      =   0  'Flat
  97.       BackColor       =   &H80000005&
  98.       Caption         =   "&Read Serialization"
  99.       BeginProperty Font 
  100.          name            =   "MS Sans Serif"
  101.          charset         =   0
  102.          weight          =   400
  103.          size            =   8.25
  104.          underline       =   0   'False
  105.          italic          =   0   'False
  106.          strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   375
  109.       Left            =   5040
  110.       TabIndex        =   4
  111.       Top             =   810
  112.       Width           =   2445
  113.    End
  114.    Begin VB.TextBox SerNumber 
  115.       BeginProperty Font 
  116.          name            =   "MS Sans Serif"
  117.          charset         =   0
  118.          weight          =   700
  119.          size            =   8.25
  120.          underline       =   0   'False
  121.          italic          =   0   'False
  122.          strikethrough   =   0   'False
  123.       EndProperty
  124.       Height          =   285
  125.       Left            =   90
  126.       MaxLength       =   9
  127.       TabIndex        =   13
  128.       Tag             =   "9876543210"
  129.       Top             =   4950
  130.       Width           =   4875
  131.    End
  132.    Begin VB.TextBox SerPart2 
  133.       BeginProperty Font 
  134.          name            =   "MS Sans Serif"
  135.          charset         =   0
  136.          weight          =   700
  137.          size            =   8.25
  138.          underline       =   0   'False
  139.          italic          =   0   'False
  140.          strikethrough   =   0   'False
  141.       EndProperty
  142.       Height          =   285
  143.       Left            =   90
  144.       MaxLength       =   50
  145.       TabIndex        =   11
  146.       Tag             =   "Company : MicroProgram SoftHouse"
  147.       Top             =   4320
  148.       Width           =   4875
  149.    End
  150.    Begin VB.TextBox SerPart1 
  151.       BeginProperty Font 
  152.          name            =   "MS Sans Serif"
  153.          charset         =   0
  154.          weight          =   700
  155.          size            =   8.25
  156.          underline       =   0   'False
  157.          italic          =   0   'False
  158.          strikethrough   =   0   'False
  159.       EndProperty
  160.       Height          =   285
  161.       Left            =   90
  162.       MaxLength       =   50
  163.       TabIndex        =   9
  164.       TabStop         =   0   'False
  165.       Tag             =   "User : Gill Bates"
  166.       Top             =   3690
  167.       Width           =   4875
  168.    End
  169.    Begin VB.CommandButton Command3 
  170.       Appearance      =   0  'Flat
  171.       BackColor       =   &H80000005&
  172.       Caption         =   "&Add 1 to Serial Number"
  173.       BeginProperty Font 
  174.          name            =   "MS Sans Serif"
  175.          charset         =   0
  176.          weight          =   400
  177.          size            =   8.25
  178.          underline       =   0   'False
  179.          italic          =   0   'False
  180.          strikethrough   =   0   'False
  181.       EndProperty
  182.       Height          =   375
  183.       Left            =   5040
  184.       TabIndex        =   7
  185.       Top             =   2160
  186.       Width           =   2445
  187.    End
  188.    Begin VB.FileListBox File1 
  189.       BeginProperty Font 
  190.          name            =   "MS Sans Serif"
  191.          charset         =   0
  192.          weight          =   700
  193.          size            =   8.25
  194.          underline       =   0   'False
  195.          italic          =   0   'False
  196.          strikethrough   =   0   'False
  197.       EndProperty
  198.       Height          =   2370
  199.       Left            =   3150
  200.       Pattern         =   "*.exe;*.dll"
  201.       TabIndex        =   0
  202.       Top             =   810
  203.       Width           =   1815
  204.    End
  205.    Begin VB.DirListBox Dir1 
  206.       BeginProperty Font 
  207.          name            =   "MS Sans Serif"
  208.          charset         =   0
  209.          weight          =   700
  210.          size            =   8.25
  211.          underline       =   0   'False
  212.          italic          =   0   'False
  213.          strikethrough   =   0   'False
  214.       EndProperty
  215.       Height          =   2280
  216.       Left            =   90
  217.       TabIndex        =   3
  218.       Top             =   810
  219.       Width           =   2985
  220.    End
  221.    Begin VB.DriveListBox Drive1 
  222.       BeginProperty Font 
  223.          name            =   "MS Sans Serif"
  224.          charset         =   0
  225.          weight          =   700
  226.          size            =   8.25
  227.          underline       =   0   'False
  228.          italic          =   0   'False
  229.          strikethrough   =   0   'False
  230.       EndProperty
  231.       Height          =   315
  232.       Left            =   90
  233.       TabIndex        =   2
  234.       Top             =   360
  235.       Width           =   2985
  236.    End
  237.    Begin VB.CommandButton Command2 
  238.       Appearance      =   0  'Flat
  239.       BackColor       =   &H80000005&
  240.       Caption         =   "&Remove Serialization"
  241.       BeginProperty Font 
  242.          name            =   "MS Sans Serif"
  243.          charset         =   0
  244.          weight          =   400
  245.          size            =   8.25
  246.          underline       =   0   'False
  247.          italic          =   0   'False
  248.          strikethrough   =   0   'False
  249.       EndProperty
  250.       Height          =   375
  251.       Left            =   5040
  252.       TabIndex        =   6
  253.       Top             =   1710
  254.       Width           =   2445
  255.    End
  256.    Begin VB.CommandButton Command1 
  257.       Appearance      =   0  'Flat
  258.       BackColor       =   &H80000005&
  259.       Caption         =   "&Add Serialization"
  260.       BeginProperty Font 
  261.          name            =   "MS Sans Serif"
  262.          charset         =   0
  263.          weight          =   400
  264.          size            =   8.25
  265.          underline       =   0   'False
  266.          italic          =   0   'False
  267.          strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   375
  270.       Left            =   5040
  271.       TabIndex        =   5
  272.       Top             =   1260
  273.       Width           =   2445
  274.    End
  275.    Begin VB.Label Label1 
  276.       Appearance      =   0  'Flat
  277.       BackColor       =   &H80000005&
  278.       BackStyle       =   0  'Transparent
  279.       Caption         =   "&Enter serialization number (9 digits)"
  280.       BeginProperty Font 
  281.          name            =   "MS Sans Serif"
  282.          charset         =   0
  283.          weight          =   700
  284.          size            =   8.25
  285.          underline       =   0   'False
  286.          italic          =   0   'False
  287.          strikethrough   =   0   'False
  288.       EndProperty
  289.       ForeColor       =   &H80000008&
  290.       Height          =   195
  291.       Index           =   2
  292.       Left            =   90
  293.       TabIndex        =   12
  294.       Top             =   4680
  295.       Width           =   4875
  296.    End
  297.    Begin VB.Label Label1 
  298.       Appearance      =   0  'Flat
  299.       BackColor       =   &H80000005&
  300.       BackStyle       =   0  'Transparent
  301.       Caption         =   "&Enter second part of serialization (50 chars)"
  302.       BeginProperty Font 
  303.          name            =   "MS Sans Serif"
  304.          charset         =   0
  305.          weight          =   700
  306.          size            =   8.25
  307.          underline       =   0   'False
  308.          italic          =   0   'False
  309.          strikethrough   =   0   'False
  310.       EndProperty
  311.       ForeColor       =   &H80000008&
  312.       Height          =   195
  313.       Index           =   1
  314.       Left            =   90
  315.       TabIndex        =   10
  316.       Top             =   4050
  317.       Width           =   4875
  318.    End
  319.    Begin VB.Label Label1 
  320.       Appearance      =   0  'Flat
  321.       BackColor       =   &H80000005&
  322.       BackStyle       =   0  'Transparent
  323.       Caption         =   "&Enter first part of serialization (50 chars)"
  324.       BeginProperty Font 
  325.          name            =   "MS Sans Serif"
  326.          charset         =   0
  327.          weight          =   700
  328.          size            =   8.25
  329.          underline       =   0   'False
  330.          italic          =   0   'False
  331.          strikethrough   =   0   'False
  332.       EndProperty
  333.       ForeColor       =   &H80000008&
  334.       Height          =   195
  335.       Index           =   0
  336.       Left            =   90
  337.       TabIndex        =   8
  338.       Top             =   3420
  339.       Width           =   4875
  340.    End
  341.    Begin VB.Line Line1 
  342.       BorderColor     =   &H00FFFFFF&
  343.       BorderWidth     =   2
  344.       Index           =   1
  345.       X1              =   90
  346.       X2              =   7470
  347.       Y1              =   3330
  348.       Y2              =   3330
  349.    End
  350.    Begin VB.Label Label2 
  351.       Appearance      =   0  'Flat
  352.       BackColor       =   &H80000005&
  353.       BackStyle       =   0  'Transparent
  354.       Caption         =   "Select an EXE, DLL to add/remove serialization info"
  355.       BeginProperty Font 
  356.          name            =   "MS Sans Serif"
  357.          charset         =   0
  358.          weight          =   700
  359.          size            =   8.25
  360.          underline       =   0   'False
  361.          italic          =   0   'False
  362.          strikethrough   =   0   'False
  363.       EndProperty
  364.       ForeColor       =   &H80000008&
  365.       Height          =   195
  366.       Index           =   1
  367.       Left            =   90
  368.       TabIndex        =   1
  369.       Top             =   90
  370.       Width           =   6315
  371.    End
  372. End
  373. Attribute VB_Name = "frmSerialization"
  374. Attribute VB_Creatable = False
  375. Attribute VB_Exposed = False
  376. Option Explicit
  377.  
  378. Private Sub Command1_Click()
  379.    Me.Enabled = False
  380.    Me.Picture1.Visible = True
  381.    Call FileProcessAdd
  382.    DoEvents
  383.    Me.Picture1.Visible = False
  384.    Me.Enabled = True
  385. End Sub
  386.  
  387. Private Sub Command2_Click()
  388.    Me.Enabled = False
  389.    Me.Picture1.Visible = True
  390.    Call FileProcessRemove
  391.    DoEvents
  392.    Me.Picture1.Visible = False
  393.    Me.Enabled = True
  394. End Sub
  395.  
  396. Private Sub Command3_Click()
  397.    Me.Enabled = False
  398.    Me.Picture1.Visible = True
  399.    Call FileProcessChange
  400.    DoEvents
  401.    Me.Picture1.Visible = False
  402.    Me.Enabled = True
  403. End Sub
  404.  
  405.  
  406. Private Sub Command5_Click()
  407.    Me.Enabled = False
  408.    Me.Picture1.Visible = True
  409.    Call FileProcessRead
  410.    DoEvents
  411.    Me.Picture1.Visible = False
  412.    Me.Enabled = True
  413. End Sub
  414.  
  415. Private Sub Command6_Click()
  416.    SerPart1.Text = SerPart1.Tag
  417.    SerPart2.Text = SerPart2.Tag
  418.    SerNumber.Text = SerNumber.Tag
  419. End Sub
  420.  
  421. Private Sub Command7_Click()
  422.    SerPart1.Text = ""
  423.    SerPart2.Text = ""
  424.    SerNumber.Text = ""
  425. End Sub
  426.  
  427. Private Sub Dir1_Change()
  428.    file1.Path = Dir1.Path
  429. End Sub
  430.  
  431. Private Sub Dir1_KeyPress(KeyAscii As Integer)
  432.    If ((KeyAscii = 32) Or (KeyAscii = 13)) Then
  433.       Dir1.Path = Dir1.List(Dir1.ListIndex)
  434.       file1.Path = Dir1.List(Dir1.ListIndex)
  435.    End If
  436. End Sub
  437.  
  438. Private Sub Drive1_Change()
  439.    Dir1.Path = Drive1.Drive
  440. End Sub
  441.  
  442. Private Sub Form_Load()
  443.    Me.Show
  444.    Call Loader
  445. End Sub
  446.  
  447.  
  448.